VB ãsocket _ٶ֪ٶҳ | ٶ֪ | ¼ 

     ҳ      ֪   MP3   ͼƬ   Ƶ   ٿ
               

               
        

ٶ֪ > / > VB  ӵѲ ѽ 
VB ãsocket 
 ͷ֣15 - ʱ䣺2008-8-25 12:43
˾ҪһӿVBsocketͣƣszxVersion=**&szxOid=**&szxSign=**&....ݣӦأ 
ûùⶫʵΪˣûܰдһ򵥵ԴСлˣ
ߣ xmkasj - ħѧͽ һ Ѵ
VB5 WinsockؼTCP/IPͨѶ 

Windows 95İWindows NT Server 4.0İУ Microsoft˾ƳӦƽ̨ϵĿ: Visual 
Basic 5.0 ҵ 档ΪWindowsµ翪ṩǿĹߣWinsockؼ֮һ 

WinsockؼTCPUDPЭĻϣԶ̼ͨšʹTCP/IP̫ϤûʹøÿؼҲʮڴһ򵥵Ŀͻ/ǶWinsockؼ¼԰ڳгֵ˳ֱϸĽܣԱõԴ롣 


ʵֹǣ 

1úLocalPortԣΪ˿ڣֵΪһֻҪһTCP/IPӦóûʹùֵɣ 

2ʹListen״̬ȴͻ 

3ͻ򷢳ʹConnectionRequest¼¼õһrequestID 

4AcceptܿͻrequestIDͿSendDataˡAcceptһõrequestIDΪ 


5յʱDataArrival¼BytesTotalյֽڸ¼УGetDataݡ 

6ܵClose¼CloseرTCP/IPӡ 

ͻʵֹǣ 

1 ͻRemotehostԣԱָз ַڡ||ʶ|в鵽 

2 RemotePort,Աָ˿ڡ 

3ʹConnect 

4ܿͻ󣬿ͻConnect¼ͿSendDataˡ 

5ͻյʱDataArrival¼BytesTotalյֽڸ¼УGetDataݡ 

6ܵClose¼Closeرӡ 

WinsockؼҪԣProtocolStateProtocol趨ʹõЭTCPUDPȡֵsckTCPProtocolʾTCP, 
ȡֵsckUDPProtocolʾUDPΪWinsockؼȱʡsckTCPProtocolԳвûʹProtocolԡStateԷӳǵǰTCP/IP״̬ȡֵ1ʾ 


1 WinsockؼStateԼ 

 ֵ  

sckClosed 0 ȱʡֵرա 

SckOpen 1 򿪡 

SckListening 2  

sckConnectionPending 3 ӹ 

sckResolvingHost 4 ʶ 

sckHostResolved 5 ʶ 

sckConnecting 6 ӡ 

sckConnected 7 ӡ 

sckClosing 8 ͬԱڹرӡ 

sckError 9  

һ̨з򣬴ʱֻһ˳ť һ̨пͻڡӡťұߵı 
󵥻ӡťӳɹͿͻ򴰿ڶıʱ˶ı֣Щֻıг֡ 


ʹõĿؼ£ 

1Command1˳ť 

2textsendı 

3Winsockserver Winsock 

4textget ı 

Ľͼʾ 

Դ£ 

Private Sub Command1_Click() 

End 

End Sub 



Private Sub Form_Load() 

textsend.Visible = False 

textget.Visible = False 

Winsockserver.LocalPort = 1001 

Winsockserver.Listen 

End Sub 



Private Sub textsend_Change() 

Winsockserver.SendData textsend.Text 

End Sub 



Private Sub Winsockserver_Close() 

Winsockserver.Close 

End 

End Sub 



Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long) 

textsend.Visible = True 

textget.Visible = True 

If Winsockserver.State <> sckClosed Then Winsockserver.Close 

Winsockserver.Accept requestID 

End Sub 



Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) 

Dim tmpstr As String 

Winsockserver.GetData tmpstr 

textget.Text = tmpstr 

End Sub 

ͻʹõĿؼ£ 

1Command1˳ť 

2Command2Ӱť 

3WinsockclientͻWinsock 

4Text1ı 

5Textsendı 

6Textgetı ͻĽͼʾ 

ͻԴ£ 

Private Sub Command1_Click() 

End 

End Sub 



Private Sub Command2_Click() 

Winsockclient.Connect 

End Sub 



Private Sub Form_Load() 

textsend.Visible = False 

textget.Visible = False 

Winsockclient.RemotePort = 1001 

Winsockclient.RemoteHost = "sccdsz" 

End Sub 



Private Sub Text1_Change() 

Winsockclient.RemoteHost = Text1.Text 

End Sub 



Private Sub textsend_Change() 

Winsockclient.SendData textsend.Text 

End Sub 



Private Sub Winsockclient_Close() 

Winsockclient.Close 

End 

End Sub 



Private Sub winsockclient_Connect() 

textsend.Visible = True 

textget.Visible = True 

Command2.Visible = False 

End Sub 



Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long) 

Dim tmpstr As String 

Winsockclient.GetData tmpstr 

textget.Text = tmpstr 

End Sub 
شߣ songyf112 -    8-21 15:59
>>
߶ڴ𰸵ۣܲѾر    Ŀǰ 0 
          
      50% 0
      50% 0

      &#8226; vbsocketݰ
      &#8226; VBָIP˿ڷͷ
      &#8226; VB6.0ʹsocketؼ?
      &#8226; VB WINSOCKlist
      &#8226; vbݰ
       >>
      鿴ͬ⣺socket    
ȴش
  ߵȷ&shy;Աڵµľλã&shy;һλڻʦ&shy;ĺŮ߹ҵ˳&shy;ȴһֱ&shy;ѡĹ&shy;ⲿӰʲôԴݽ߳&shy;Щѽɵ2 
  ʮλڻʦ&shy;ĺŮ߹ҵ˳&shy;ȴһֱͬʱ&shy;ˣѡ&shy;ɾĹ¡Ϊʲôݲµ&shy;Դݽ߳Ļ&shy;3ʲôʱxyz{|άҲ&shy;ɨ|{zyxȺ:&shy;75503447!&shy;!ո߹!
      ȫ-̩߳ 
      ¸,֯,,,ȫרҵ,ͶƷרҵ..
      www.tz-wjc.com 
      ȫ- 
      ӽۺļ,רҵ,ḻʵ,ΪͻṩӼ,..
      sm20000.com 
      úȫϢϵͳ 
      ƽúȫϢΪ淶ȫ,Ż,Чṩ..
      www.zpae.com 
      ;ҵϢȫϵͳ,ɿ 
      ;ϵͳȶ,ϸİȫ,õļ,Զû..
      www.axcad.com.cn 
      ɽ輼Уרҵ 
      ѧϰԻ,Բ,ϵͳͳð칫,Ӧ,ԭ,..
      www.sdlxjx.net 
      ൺsql server 
      ˾Ҫ򽺶΢ȫϵвƷ,΢Ĳϵͳ,칫,ERP,ݿ⼰..
      www.qdcsoft.com 
      ȫ-ԴƼ.. 
      ԴƼ޹˾Ǹ¼ҵ,ṩְȫ,1994沢˷..
      www.songykj.com.cn 


&copy;2009 Baidu
 